home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / surfmodl / surfm203.arc / SURFSRC.ARC / OPENWIN.INC < prev    next >
Text File  |  1987-01-09  |  709b  |  33 lines
  1. procedure OPENWIN (Xa, Ya, Xb, Yb: integer);
  2. { Open a text window on the screen and draw border }
  3.  
  4. var X, Y: integer;
  5.     X1, Y1: integer;
  6.     X2, Y2: integer;
  7.  
  8. begin
  9.   X1 := Xa - 5;
  10.   Y1 := Ya - 2;
  11.   X2 := Xb + 5;
  12.   Y2 := Yb + 2;
  13.   window (1,1,80,25);       { use full screen }
  14.   clrscr;
  15.   gotoXY (X1,Y1);
  16.   write (chr(201));
  17.   for X := X1+1 to X2-1 do
  18.     write (chr(205));
  19.   write (chr(187));
  20.   for Y := Y1+1 to Y2-1 do begin
  21.     gotoXY (X1,Y);
  22.     write (chr(186));
  23.     gotoXY (X2,Y);
  24.     write (chr(186));
  25.   end;
  26.   gotoXY (X1,Y2);
  27.   write (chr(200));
  28.   for X := X1+1 to X2-1 do
  29.     write (chr(205));
  30.   write (chr(188));
  31.   window (Xa,Ya,Xb,Yb);
  32. end; { procedure Openwin }
  33.